Option Explicit
Sub D_Sample046()
    Dim myName As Name
    Dim myWb   As Workbook
    Set myWb = Workbooks(1)					'Nï
    For Each myName In myWb.Names
        myName.Delete
    Next
Set myWb = Nothing						'
End Sub

